#### Generate Figure: Education by Agreement (Scatterplot) ####
fig6_dat = bind_rows(import(here("data","fig6_edu_agree_dat.rds")) |> 
                       mutate(agree = "Agree"),
                     import(here("data","fig6_edu_disagree_dat.rds")) |> 
                       mutate(agree = "Disagree")) |>
  invert_group()

fig_edu_agree_scat = amce_scatterplot(fig6_dat, "Education", "darkgreen", -0.03, .45, "Agree")
fig_edu_disagree_scat = amce_scatterplot(fig6_dat, "Education", "darkgreen", -0.03, .45, "Disagree")

fig_edu_scat = fig_edu_agree_scat + fig_edu_disagree_scat

print(fig_edu_scat)

ggsave(here("figures","figure_7.png"), fig_edu_scat,
       dpi = 600, units = "in", width = 10, height = 5)

ccat("See 'figure_7.png' for Figure 7 output")

